home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / doc / signal / group6_8.code < prev    next >
Text File  |  1999-09-16  |  543b  |  29 lines
  1. //exec('group6_8.code')
  2. //save and change dess
  3.    xinit('group6.ps');
  4.  
  5. //create filter using ffir
  6.  
  7.    [h w]=wfir('lp',7,[.2,0],'hm',[0.01,-1]);
  8.    [tg,fr]=group(100,h);
  9.    plot2d(fr',tg',1,'011',' ',[0,2,0.5,4.])
  10.    xend()
  11.  
  12. //demonstrate rational polynomial
  13.    xinit('group7.ps');
  14.    z=poly(0,'z');
  15.    h=z/(z-.5);
  16.    [tg,fr]=group(100,h);
  17.    plot(fr,tg)
  18.    xend()
  19.  
  20. //demonstrate cascade realization
  21.    xinit('group8.ps');
  22.    h=[1 1.5 -1 1;2 -2.5 -1.7 0;3 3.5 2 5];
  23.    h=h';
  24.    h=casc(h,'z');
  25.    [tg,fr]=group(100,h);
  26.    plot(fr,tg)
  27.    xend()
  28.  
  29.